Hệ thống quản lý hồ sơ kiểm kê phòng thí nghiệm trong c#

6.148 lượt xem;

Reg_Item.vb
project /

1 Imports System.Data.OleDb
2 Public Class Reg_Item
3     Dim ConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=CLInventory.accdb; Persist Security Info=False"
4     Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)
5
6     Private Sub Reg_Item_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
7
8         Timer1.Enabled = True
9         Timer2.Enabled = True
10     End Sub
11
12     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
13         save_facilities()
14     End Sub
15     Sub save_facilities()
16         Try
17
18             Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)
19             OleDbConn.Open()
20
21             Dim MyOledbCommand As OleDbCommand = New OleDbCommand()
22
23             MyOledbCommand.CommandText = "Insert Into Item_list " & "(Name_of_Item,No_of_Item) " _
24             & "Values (" _
25             & "'" & TextBox1.Text & "', " _
26             & "'" & TextBox2.Text & "')"
27
28             MyOledbCommand.Connection = OleDbConn
29             MyOledbCommand.ExecuteNonQuery()
30             OleDbConn.Close()
31             MsgBox("Insert Successfully")
32             TextBox1.Text = ""
33             TextBox2.Text = ""
34
35         Catch err As System.Exception
36
37         End Try
38         Main_Form.refreshing_utility()
39     End Sub
40     Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
41
42     End Sub
43
44     Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
45
46     End Sub
47
48     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
49         Label4.Text = TimeOfDay
50     End Sub
51
52     Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
53         Label5.Text = DateAndTime.Today
54     End Sub
55 End Class